my $string = '
'; if($string=~ m/(
?)/) { print "Here :: $1 \n"; }else {print "regex failed";}