[ create a new paste ] login | about

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

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

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


Output:
1
mthed


Create a new paste based on this one


Comments: