#!/usr/bin/perl
$c=#home:/home/
$0; #the obscur
open(AeIoU,$0);
$\ = "";# eioug
while(<AeIoU>){
;#enterTheMatri
$a[$_=split //,
$2]=$1 if/#([^!
|^\(])(.*)$/#Jg
#reboot thehost
}print #againfg
$a[$_] for 0...
@a ; #other num
print;#nothing.
close AeIoU;#JO
open(AeIoU,$c);
$_=<AeIoU>;#usp
chomp ($d=$1) #
if /([^\/]+)$/;
print " " . $d;
;;print foreach
pack("C*",qw/32
104  97  99 107
101 114/);#sfkd
print"\n"#tdfsk