$ perl -MData::Dump -e " $g=$f=qq{a\n};  dd( chomp( $f, $g ) ) ; dd( $f, $g )"
2
("a", "a")