d:>perl test.pl
foo2
2