[ create a new paste ] login | about

Link: http://codepad.org/xkYKXfcj    [ raw code | fork ]

Perl, pasted on May 19:
1
2
3
4
5
my $release = '9.2X17';

if ($release =~ /^(\d+\.\d+\.\d+)(X|x)\d+$/) {
print "mthed";
}


Output:
No errors or program output.


Create a new paste based on this one


Comments: