Help for this page

Select Code to Download


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