#!/usr/bin/perl 
 $source = shift @ARGV;
 $outf = shift @ARGV;
 open (IN,"$source");
 open (OUT,">$outf");
 while(<IN>)
  {
   chomp;
   if ($_=~ m/^(\d*);\w*$/)  { print OUT "$1\n"; }
  };