my ($error) = $line =~ /.*](.*)/;

##</code><code>##

my $error = substr($line, rindex($line, ']') + 1);