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

$eins = $zwei = $drei = 1;

my $str = swrite($format,$eins,$zwei,$drei);
print $str;