Regular Expression Perl

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