or download this
c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(pp);
...
matched (f*?) of "", starting at offset of 3, ending at pos of 3
matched (f*?) of "", starting at offset of 4, ending at pos of 4
matched (f*?) of "", starting at offset of 5, ending at pos of 5