#!/usr/bin/perl -w
#1 line checker
#use strict;
$m='(';
print $m,"\n";
$str="Hello\(\n";
$true=($str=~m/$m/);
print $true , "\n";

##</code><code>##

liord@analog4 188 > ~/linecheck.pl
(
Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE / at /users/liord/linecheck.pl line 7.
Exit 9

##</code><code>##

#!/usr/bin/perl -w
#1 line checker
#use strict;
$m='(';
print $m,"\n";
$str="Hello\(\n";
$true=($str=~m/\(/);
print $true , "\n";