I think you're asking if there's a shortcut for:

$a = "blah bla blah";
$b = $a;
$b =~ s/blah (bla) blah/$1/;
[download]

If so, how about:

$a = "blah bla blah";
($b) = $a =~ /^\S+\s+(\S+)\s+\S+$/;
[download]

---

print(map(lc(chr),split(6,qw/99672682673683684689632658645641610607/)));