Select Code to Download

use strict;
use warnings;
...
print "1-->\n$str<--1\n";
$str =~ s/\n+\Z//;
print "2-->\n$str<--2\n";

1-->
1
...
1
2
3<--2