my ($eins, $zwei, $drei);
my $format = q~
Check me out
@<<< @||| @>>>
$eins, $zwei, $drei
~;

$eins = $zwei = $drei = 1;

my $str = &swrite($format);
print $str;