Darn. Well, TIMTOWTDI.
You could do:
#!/usr/bin/perl -w
use strict;
my $name = 'name';
my $home = "town";
my $form = "\@<<<<<<<<<<<<<<<<<< \@<<<<<<<<<<<<<<<\r\n";
formline($form, $name, $home);
print $^A;
See
perlvar,
formline for fiddling with the formats. But maybe it would be just easier to postprocess?
#!/usr/bin/perl -w
use strict;
my $name = 'name';
my $home = 'town';
printknecht(); # let's fork us a scribe
write;
format STDOUT =
@<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
$name, $home
.
sub printknecht {
return if my $pid = open(STDOUT, "|-"); # return if parent.
die "cannot fork: $!" unless defined $pid;
while (<STDIN>) {
chop;
print $_."\r\n";
}
exit;
}
See
Playing with STDIN and STDOUT for some prosa around this technique.
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}