Help for this page

Select Code to Download


  1. or download this
    sub foo{my $blah=shift; $_=substr $blah,0,1; /foo/;}