1
2
3
4
5
6

sub c
{
    chdir($home);
   @files = glob("*");
   chdir($Bin);
}

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;