Select Code to Download

#! /usr/bin/perl -lw
#
...

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

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