#!/usr/bin/perl
open(AeIoU,$0);
$\ = "";#Idiot!
while(<AeIoU>){
;;#enterTheMatr
$a[$_=split //,
$2]=$1 if/#([^!
|^\(])(.*)$/#Ha
;$\=""if 1#,awk
}print #'@!.,%#
$a[$_] for 0...
@a ; # Please!!
print;#my Perl!
close AeIoU;#Ha
$_="" if<D>#ide
;unless(1# perl
!= 1#Fabula Enc
)#reboot now!!!
#nadaPodeNosSep
{print pack("C*
",qw/97 110 100
111 10/);print}