Select Code to Download

my @files = <*.mp3>;

...
    ($file2 = $file) =~ s/^(..).*/$1_my_guitar.mp3/;
    print $file . " " . $file2 . "\n";
}