$ perl -MData::Dumper -e ' $g=$f=qq{a\n};  print Dumper( chomp( $f, $g ) ) ; print Dumper( $f, $g )'
$VAR1 = 2;
$VAR1 = 'a';
$VAR2 = 'a';



$perl -MData::Dumper -e ' $g=$f=qq{a\n\n};  print Dumper( chomp( $f, $g ) ) ; print Dumper( $f, $g )' 
$VAR1 = 2;
$VAR1 = 'a
';
$VAR2 = 'a
';