QuackShot comment extractor.pl

#!/usr/bin/env perl

for my $line (<STDIN>)
{
  if ($line =~ /^--(.+\S)/)
  {
    print "[b]" . $1 . "[/b]\n\n";
  }
  if ($line =~ /gui\.drawText\((?:2,164|\d+,156|\d+,170),"(.+?[^\\])"/)
  {
    my $text = $1;
    $text =~ s/\\[nt]/ /g;
    $text =~ s/\\//g;
    $text =~ s/ +/ /g;
    $text =~ s/^ +//;
    $text =~ s/ +$//;
    next if $text =~ /^(?:Donald|Dracula|Shere Khan|Viking Ghost|Guardian): /;
    print "$text\n";
    print "\n" if $text =~ /:/;
  }
}