print "song: $string\n Correct? y/n: ";
my $res = <STDIN>;
chomp($res);

if($res =~ /n/i){
	print "Enter correct text: ";
	$str  = <STDIN>;
	chomp $str;
	print "new: ", $str, $/;
}

print "str: ", $str, $/;
my $newfile = "$str.mp3";
print "newfile: $newfile\n";

##</code><code>##

song: Fossil Aerosol Mining Project - Nu Message
 Correct? y/n: n
Enter correct text: ssss
new: sssss
str: sssss

.mp3ile: ssss