$_ = "blah";
my @matches = /(.(?=.))/g;
print "@matches\n";