1 2use String::RexxParse qw(parse); 3 4$a = 'around the rugged rocks the ragged rascal ran!'; 5 6$b=$c=$d=$e=$f=$g=$minus3=$eight=$pattern=""; 7 8$minus3 = -3; $eight = 8; $pattern = 'rocks'; 9 10parse $a, q~ $b $c ($pattern) $d +($eight) $e +($minus3) $f $g ~; 11 12print "1..6\n"; 13 14 15if ($b eq 'around' ) { print "ok 1\n" } 16else { print "not ok 1\n" } 17 18if ($c eq 'the rugged ' ) { print "ok 2\n" } 19else { print "not ok 2\n" } 20 21if ($d eq 'rocks th' ) { print "ok 3\n" } 22else { print "not ok 3\n" } 23 24if ($e eq 'e ragged rascal ran!' ) { print "ok 4\n" } 25else { print "not ok 4\n" } 26 27if ($f eq 'the' ) { print "ok 5\n" } 28else { print "not ok 5\n" } 29 30if ($g eq 'ragged rascal ran!' ) { print "ok 6\n" } 31else { print "not ok 6\n" } 32 33 34