Select Code to Download

sub my_chomp {
   $_[0] =~ s/\r?\n\z//sm;
...
my $var = "foo\n";
my_chomp $var;
print "[[$foo]]\n";