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