say "wuff" if "nanana" =~ /^n/;
# oder:
&blub if substr( "nanana", 0, 1 ) eq "n";