[setantae@archaia setantae]$ cat barf
#!/usr/bin/perl -w
$normal = "text here";
$at = "setantae\@eidosnet.co.uk";
$caret = "something^with a caret in";
write STDOUT;
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<
$at, $caret, $normal
.
[setantae@archaia setantae]$ ./barf
setantae@eidosnet.co.uk        something^with a caret in        text here