substitute everything for:

#!/usr/bin/env perl
use strict;
use warnings;
open my $file, '<', 'comms_input';
while( <$file> ) {
  chomp;
  my @fields = split;
  print "$fields[3]\n"
}
[download]