Help for this page

Select Code to Download

Select or download this

perl -Mstrict -WE '
say "`$_` " . ( $_ =~ /^white*/ ? "match" : "no match" )
    for ("while", "whine", "white", "whitf", "whit ", "whit!", "whit")
+;
'

Select or download this

`while` no match
`whine` no match
...
`whit ` match
`whit!` match
`whit` match