if ($line =~ /^\b\d/)

##</code><code>##

if ($line =~ m/:/)

##</code><code>##

if ($line !~ m/perf/)