#!/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__