http://qs321.pair.com?node_id=704981


in reply to Extract sequence of UC words?

I think you're close but you'll probably have better luck using /g modifier in list context. The following gets the results for me:
my @uc_string = ($data =~ /(\b[A-Z]+\b)/g);
Thanks,
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;