Simplified Perlish code