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


in reply to Concatenation to elements in an array !

Something along these lines will do the trick: 
my @modified_array = map {
  $_ . "a"
} (1,2,3,4,5);

[download]
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;

In Section Seekers of Perl Wisdom