Danke an Volker für diesen code candy:

/**
 * Displaying Debug warnings? (0 = now, 1+ = yes)
 * @var int
 */
 public $do_debug = 2;

if($info =~ /(.+)<br./>.<b>Warning.(.+)<br./>.<b>Warning/)
# this is pretty funny that you capture two strings and only
# use one. showing again that you dont know how to code
# but instead copy paste also what is the point of <br./>?
# were you trying to match <br >? they have this thing
# called “s” it stands for “space” not that you would know
# for reasons mentioned before. also why do you have
# Warning.(.+) ? did you mean to escape the special
# character “.”? Do you even know what escaping is…….
# How about:
# if($info =~ /(.+)<brs/>.<b>Warning..+<brs/>.
# <b>Warning/){
    print “$finaln”;
    last;
# ^ SEE THE TAB MAKES YOUR CODE READABLE NOT LIKE ANYONE USES
# YOUR BULLSH*T ANYWAY

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl

/**
 * woohoo! i am the master of warnings!
 * (WinPuz.gba – 0 error(s), 25618 warning(s))
 */

Source: Direct link to the source code
Software: WinPuzzle
Programming language: C