use warnings;
open FILE, "Testus.txt" or die "Couldn't open file.";
while (<FILE>) { print "$_ \n" for /^(\d+\.\d+\t\d+\.\d+)/ };