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";