C:\>perl -e "print '+++' =~ /\+/"
1
C:\>