I just tried out using your guidelines.., it is as follow..
<CODE>
#!/usr/bin/perl -w
use warnings;
use strict;
open(FH,"<input") or die "cannot open";
open(FI,">alpha") or die "cannot open";
open(FL,">numeric") or die "cannot open";
$i=0;
$a=0;
while(<FH>)
{
@a=split //;
for $a(@a)
{
print $b
;
}
else
{
}
}
close FH;
close FI;
close FL;
But it didn't work
can you just look into whats the error