my $escaped_artist = $FORM{songartist}; 
$escaped_artist    =~ s/ /+/g;
my $escaped_title  = $FORM{songtitle};  
$escaped_title     =~ s/ /+/g;
...
print FILE "<a href=nap ... (like you had before)
print FILE "$escaped_artist - $escaped_title</a>\n";