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