Help for this page

Select Code to Download


  1. or download this
    open (my $fh, '<text.txt');
    while (<$fh>) {
      print "$1 $2" . "\n" if /^([^ ]+) ([^ ]+)/;
    }