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