$ perl -Mre=debug 846428.pl TEST TEST Compiling REx "[* | < > ? /]" Final program: 1: ANYOF[ */<>?|][] (12) 12: END (0) stclass ANYOF[ */<>?|][] minlen 1 Matching REx "[* | < > ? /]" against "TEST TEST" Matching stclass ANYOF[ */<>?|][] against "TEST TEST" (9 chars) 4 < TEST> | 1:ANYOF[ */<>?|][](12) 5 | 12:END(0) Match successful! Matching REx "[* | < > ? /]" against "TEST" Matching stclass ANYOF[ */<>?|][] against "TEST" (4 chars) Contradicts stclass... [regexec_flags] Match failed TESTTEST Freeing REx: "[* | < > ? /]" $ perl -le"print qq!@ARGV!" 1 2 "3 4 5" 1 2 3 4 5