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

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

##</code><code>##

hello one two three
kjsf
kjsd
kjd


##</code><code>##

hello one
hello one
hello one
hello one

##</code><code>##

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

##</code><code>##

hello one