$ perl -Mstrict -Mwarnings -le ' my $x = q{"abc}; my $y = q{def"}; print substr $x . $y, 1, -1; ' abcdef