Select Code to Download

use 5.010;
use strict;
...
__END__
42
undef

sub R {
   printf qq{before: \$_ is '$_'};
...
after: $_ is 'xxxxx' $1 is '1' 
after: $_ is 'xxxxx' $1 is '1' 
after: $_ is 'xxxxx' $1 is '1'