use strict;

sub chomp_all {
    my $count = 0;
    foreach (@_) {
       ++$count while $_ =~ s!$/$!!;
    }
    return $count;
}

# test

my $s = "xxxxx\n\n\n\n\n\n";
chomp_all($s);
print "[$s]";