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