my @files = <*.mp3>;

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