Select Code to Download

#! perl
use strict;
...
    print "First  substring is '$1'\n";
    print "Second substring is '$2'\n";
}

 0:23 >perl 497_SoPW.pl
First  substring is ' abcd1234'
...
'

 0:23 >