$str =~ m[
    (\d{1,4})
    (?:
        \t
       (.{1,40})
    )? # << $2 is condtional.
]x;