while(my $line = <FILE>) {
    chomp;
    eval "\$string =~ $line; 1" or die $@;
}