Help for this page

Select Code to Download

Select or download this

if($var =~ /,/)
 {
...
 {
     print "matches \n Captured: $1\n";
 }