CODE:

#!/usr/bin/perl -w
length q chmod lc and print chr ord uc q map m and print chr ord q q q and print chr ord uc q chop uc and print chr ord q map m and print chr ord q open no and print chr ord q open no and print chr ord q my alarm and print chr ord q q q and print chr ord uc qw q ne q and print chr ord q ge log and print chr ord q qw q and print chr ord q q eq and print chr ord uc q my m and print chr ord q ne sin and print chr ord q each ne and print chr ord q or no