10 lines
130 B
Perl
10 lines
130 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
format SPECIAL =
|
||
|
|
This line contains the special character @.
|
||
|
|
"@"
|
||
|
|
|
||
|
|
.
|
||
|
|
|
||
|
|
$~ = "SPECIAL";
|
||
|
|
write;
|