#Find all instances of specific five character strings 
#starts with 4, then 3 more numbers, then a letter)
chomp $line;
if ($line =~ /(4\d{4})/){