# ergebnis von (pattern match gegen $_) im numerischen Kontext
$ perl -wle '$_="h1"; $b=0; $b += m/[!]/; print $b'
0
# dito, diesmal mit erfolgreichem Match
$ perl -wle '$_="h1"; $b=0; $b += m/[1]/; print $b'
1