You want $regex = $_;. Or rather something like:

while (my $regex = <FILE>) {
    chomp $regex;
    if (length($regex) > 1 && $sampletext =~ $regex) {
        ...
    }
}
[download]