my $song = "cool"; 

if (my $line =  /score*"$song"/){
...
}