Select Code to Download

> perl -v

...

> ./tmp.pl 
single word expected at ./tmp.pl line 4.

$<digits> ($1, $2, ...)

    Contains the subpattern from the corresponding set of capturing pa
+rentheses from the last successful pattern match, not counting patter
+ns matched in nested blocks that have been exited already. (Mnemonic:
+ like \digits.) These variables are all read-only and dynamically sco
+ped to the current BLOCK.