#!/usr/bin/perl
$line = " Oh Fiona do not touch me";
while ($line) {
for (0 .. 3) {
print "$line\n";
}
print " As she slipped between the sheets with nothing on at all\n\n";
$line =~ s/ [^ ]+$//;
}
ed: to tune of John Brown’s Body I think, have to dig out my Wurzels tape some time and check…