Report Perl

#!/usr/local/bin/perl 
format SPECIAL = 
This line contains the special character @. 
"@" 

$~ = "SPECIAL"; 
write;