my $str = "some string\n\n\n\n";
chomp $str;
print "[$str]";    # still three trailing newlines

$/ = "";           # 'paragraph mode'
chomp $str;
print "[$str]";    # all gone