#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
   print "testing: $_";
   chomp;
   my @pairs = m/(\d+)\s+(\w+)/g;
   print "@pairs\n\n";
}

#Prints:
#testing: beam 15 crew 5 wounded 2 critical to S.S.Kevorkian
#15 crew 5 wounded 2 critical
#
#testing: oh, my gosh, darn 5 killed 2 want_sex_change 10 drunk
#5 killed 2 want_sex_change 10 drunk
#
#testing: what a day:5 wounded 2 critical 20 crew
#5 wounded 2 critical 20 crew
#
#testing: 20 crew and 6 killed and 14 MIA
#20 crew 6 killed 14 MIA


__DATA__
beam 15 crew 5 wounded 2 critical to S.S.Kevorkian
oh, my gosh, darn 5 killed 2 want_sex_change 10 drunk
what a day:5 wounded 2 critical 20 crew
20 crew and 6 killed and 14 MIA