@t1 = grep(-e, glob('*1'));
@t2 = grep(-e, glob('1'));
@t3 = grep(-e, glob('file2'));
@t4 = grep(-e, glob('*3'));

##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;