Help for this page

Select Code to Download

Select or download this

#!\usr\bin\perl -w

...
if(/(\s+) (\s+), (\s+)/){
    print "words are $1 $2 $3\n";
}