#!/usr/bin/perl -wif($#ARGV == -1){ printf(" Usage: %s \n", $0); exit -1; }open(INFILE, $ARGV[0]) || die " Can\'t open INFILE: $!\n";$flg=0; while() { if ( /RU\s+ready?/ ) { $flg=1; } if($flg==1){ if ( /\s* (.*)\s+ (.*)\s+ (.*)\s+ (.*)/ ) …