7 lines
166 B
Perl
Executable File
7 lines
166 B
Perl
Executable File
#!/usr/bin/env perl
|
|
$a="";
|
|
while (<STDIN>){
|
|
$a=$a . $_;
|
|
}
|
|
print $a =~ m/@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/;
|