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