#!/usr/local/bin/perl 

format SPECIAL = 
This line contains the special character @. 
"@" 

. 

$~ = "SPECIAL"; 
write;