#!/usr/bin/perl -w

use strict;

#Just
#Another
#Perl
#Hacker

seek(DATA,0,0);*a=*.;warn map{$a-=chomp,s<.>;q<''>;eieio
;$.<8&&$.>2?"$_ ":''}<DATA>;__END__