#! /usr/bin/perl open(IN, "keekee.txt");while([I]) { ($a,$b) = split /\s+/, $_; print $a, "\t", $b, "\n"; print substr($a,0,4). "\t"; print substr($b,0,4). "\n"; if ( (substr($a,0,4)) ne (substr($b,0,4)) ) {print $b . " is not on the left.\n"; }}close IN;
|