Help for this page
#!/usr/bin/perl -w use strict; my $str = "This_is_a_song_.mp3"; $str =~ s/_(\.mp3)$/$1/g; print "$str\n";
use strict; my $str = "This_is_a_song_.mp3"; ... chop $pre; $str = "$pre.$post"; print "$str\n";