Smoke and Glass

[frankus]

Not much deep Perl magicke in this one,
just few, now hackneyed tricks and one or
two things I didn't know before I started.

#!/usr/bin/perl
# Another "Just another Perl hacker"
seek DATA,$|,$|++;$_=((<DATA>)[++$|]
=~/"([^"]+)/,${$|});@_=/([^ ]+)/g;$;
while $|++!=$|;($\,$,,$_)=split( ('

Larry Wall -',

'3 chief virtues of a programmer:','
 Laziness, impatience and hubris',''

)[2,$|--,$^T%2]);print@_[1..s/i//g];
__END__

--

Brother Frankus.