C:\test>perl -wE"1 while 'vwx' =~ m[vwx]g;"