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