#!/usr/bin/perl -w
use strict;
my $name = 'name';
my $home = "town";
my $form = "\@<<<<<<<<<<<<<<<<<< \@<<<<<<<<<<<<<<<\r\n";
formline($form, $name, $home);
print $^A;