use strict;
use warnings;
use 5.010;

while (1) {
    print "input: ";
    my $in = <STDIN>;
    chomp ($in);

    given ($in) {
        when (/l/) {print "\nlegs";}
        when (/h/) {print "\nhead";}
        when (/b/) {print "\nbody";}
        when (/s/) {print "\nspecial";}
    }
}