Greedy Matches
$p="pattern"; #A greedy match matches the entire pattern $p =~ /(.*)/; print "1==>$1<==\n";