Select Code to Download

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

...
  /^([^ ]+) ([^ ]+)/;
  print "$1 $2" . "\n" if $1 && $2;
}

hello one two three
kjsf
kjsd
kjd

hello one
hello one
hello one
hello one

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

hello one