use strict;
use warnings;

my $x;
$x = sprintf ("%s","this is stored in \$x");
$x .= sprintf ("%s","... and this too\n");

print $x;