if($line2=~ m/(\d*)\s*([A-Z]*)\s*(\d*)-(\d*)/)

##</code><code>##

if($line2=~ m/(\d+)\s*([A-Z]+)\s*(\d+)-(\d+)/)