#!/usr/bin/perl -- -l -w

my $msg = "happy b-day perl";
$msg =~ s/\s*|perl//g;
&gen($msg);

sub gen {
    my ($st) = @_;
    if (length($st)) {
        my @temp = split('', $st);
        shift(@temp);
        &gen(join('', @temp));
        print(length($st), ' ');
}   }