#!/usr/bin/perl -w

use strict;

open IN, "filename" or die "$!";
while (<IN>) {
       chomp;
       my ($first, $info) = (split />/);
       my $number = (split /'/, $first)[9];
       print "$number => $info\n";
}
close IN or warn "$!";