#!/perl/ -w

$pat=''; #thing to search for #line 3

while(){
print 'Enter the pattern';
chomp($pat =<stdin>);

print 'enter the string:';
chomp($_ = <stdin>); #10
if($_ =- m/$pat/g) {

print "true\n";
}

else{print "false\n";}

}