my $string = 'SW:1PMM_E'; $string =~ s/^\w+://; print $string;