if ($line =~ /^([A-Z]{3})-([A-Z])!?((\s+)(\S+)){27}/m) {
    $a = $1;
    $b = $2;
    $c = $4;
    $d = $5;
    $e = $13;
    $f = $33;
    $g = $35;
    $h = $49;
    #do stuff here;
}