Something along the lines of:
if($line =~ /^([A-Za-z0-9_-()]+)\d+/) { [download]
Discipulus added code tags
In reply to regex question Underscores, lines and paratheses. by sbrothy