codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
my $string = 'w/'; if ($string =~ m~^[^0-9a-z]~i) { print 'Only a-z0-9 allowed' } else { print 'Apparently valid.' }
Private
[
?
]
Run code
Submit