sub findString($) {
    my $line = shift;
    print "found\n" if $line =~ eval "qr/$regex/";
}