in reply to Regex help

You want the first square brackets. So tell Perl: 
/^[^[]*(\[[^]]+])/

[download]

In Section Seekers of Perl Wisdom