use Data::Dump qw/ dd /;
$f = $g = "a\n\n";  dd( chomp( $f, $g ) ); dd( $f, $g );
$/ = "\n\n";  $f = $g = "a\n\n";  dd( chomp( $f, $g ) ); dd( $f, $g );
$/ = "";  $f = $g = "a\n\n";  dd( chomp( $f, $g ) ); dd( $f, $g );
$/ = undef;  $f = $g = "a\n\n";  dd( chomp( $f, $g ) ); dd( $f, $g );
$/ = \333;  $f = $g = "a\n\n";  dd( chomp( $f, $g ) ); dd( $f, $g );
__END__
2
("a\n", "a\n")
4
("a", "a")
4
("a", "a")
0
("a\n\n", "a\n\n")
0
("a\n\n", "a\n\n")