sub summary {
    my ($type) = @_;
    if($type=~/w/) {
        return "Hello, ";
    } elsif ($type =~ /h/) {
        return "world!\n";
    }
}
# ... later ...
print summary("world");
print summary("hello");