sub my_chomp { substr shift, 0, (length) - 1 if $_[0] =~ /\n$/}; # :-)