...
print $file =~ /($regexp)/g;