open (my $fh, '<text.txt');

while (<$fh>) {
  /^([^ ]+) ([^ ]+)/;
  print "$1 $2" . "\n" if $1 && $2;
}