sub my_chomp {
   $_[0] =~ s/\r?\n\z//sm;
}

my $var = "foo\n";
my_chomp $var;
print "[[$foo]]\n";