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

my @lines = ( 'Catalog Number:  PAL1001',
              '  Catalog Number:PAL1001',
              'Catalog Number: Catalog Number:  PAL1001',
              'Catalog Number:  PAL1001Catalog Number:  PAL1001',
              'Cat Number:  PAL1001Catalog',
              'Catalog Number: 123PAL100');
              
foreach my $line (@lines)
{
   my ($catalog_num) = $line =~ /^\s*Catalog Number:\s*([A-Za-z]+\d+)/;
   
   if ($catalog_num)
   {
      print "$catalog_num\n"
   }
   else   
   {
      print "Bad Line!...$line\n";
   }
}

__END__

PAL1001
PAL1001
Bad Line!...Catalog Number: Catalog Number:  PAL1001
PAL1001
Bad Line!...Cat Number:  PAL1001Catalog
Bad Line!...Catalog Number: 123PAL100