- or download this
$regex = qr/(test)foo/i;
#then to use it
$var =~ $regex;
- or download this
$regex = '(test)foo';
#but then to call it you must do
$var =~ /$regex/;
- or download this
#!/usr/bin/perl -w
...
print REPORT "Total doc2: $totaldoc2\n";
close(LOG);
close(REPORT);