quotemeta or \Q..\E will fix your problem with special characters if you want to use a regex. Should probably add some boundary requirements though as well:

foreach $line (@list_of_files){
    if ($line =~ /^\Q$find_file\E\s/){
        print ($line);
    }
}
[download]