Simplify code.
Perl sample.