To make this more accurate, perhaps this is a possibility...

#!/usr/bin/perl

@x=split($"=''
         , 'brooks wending seaward'
         . 'jaunt hellbent through summer crops'
         . 'lick the dawntime waves');
print "@x[22,24,45,62] @x[17,9,3,37,43,49,50] ";
print uc(@x[55])."@x[49,39,31] @x[38,76,52,4,8,20]\n";
[download]