[prompt]$ perl -le 'print /RED/'

[prompt]$ perl -le 'print ~/RED/'
4294967295
[prompt]$ perl -le 'print hex("F"x8)'
4294967295 
[prompt]$ perl -le '$_ = "REDIRECT"; print /RED/'
1
[prompt]$ perl -le '$_ = "REDIRECT"; print ~/RED/'
4294967294
[prompt]$ perl -le '$_ = "REDIRECT"; print 5+~/RED/'
4294967299