123456789101112131415
use strict;sub chomp_all { my $count = 0; foreach (@_) { ++$count while $_ =~ s!$/$!!; } return $count;}# testmy $s = "xxxxx\n\n\n\n\n\n";chomp_all($s);print "[$s]";