Sory, I should have included more information. What I am wanting to do is something along the lines of this:
#!/usr/bin/perl -w
$normal = "text here";
$at = "setantae\@eidosnet.co.uk";
$caret = "something^with a caret in";
write STDOUT;
format STDOUT =
login1 is jamie@site1.com
login2 is jamie@site2.com
this is a caret: ^
more text here
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<
$at, $caret, $normal
.
The lines containing the @ and the ^ are printed as a header.