my $regexp = qr/PATTERN/;
print {$FH} $regexp; # writes (?^u:PATTERN) to file.