Select Code to Download

return (map{ /^$key/ and s/^$key//, $_ } grep( /^$key/, @ta))[1] ;

map{ /^$key/ and s/^$key//; $_ } grep( /^$key/, @ta)

map{ /^$key/ and s/^$key// and print "val=$_\n", $_ }