That's a good one Dirk.
$st = 'A quick brown fox jumped over 007 wink* wink*';
@chars = split(//, $st); # SPLIT STRING INTO A LIST
for($x=0; $x<@chars; ++$x) {
if($chars[$x] =~ /\w/ and $chars[$x+1] =~ /\w/) {
print "$chars[$x]$chars[$x+1]\n";
}
}
Split the string into an array, iterate the array, if current character
is a valid character and is followed by a valid character, print both.
In my demo code, I just used \w as a validation to keep it simple in my mind.
At TheCache, you get a choice of solutions.

Bompa