Select Code to Download

#!/usr/bin/perl -w
use strict;
...
-- don't not throw this one out.
-- delete every line that does NOT begin with two dashes...
-- is the same as keep every line that begins with two dashes

s!!password!;y?sordid?binger?;
y.paw.mrk.;;print chr 0x5b ;;;
print;print chr(0x5b+0x2);;;;;