hi friend, try out this one

open(FILE,"perlmonks.txt") or die $!;
while(<FILE>){
if(/^\s(\w)\s+(\w)/){
print "$1 ::: $2\n";
}
}
[download]