------=_NextPart_000_004C_01C8ADE9.8884D110
Content-Type: text/plain;
charset="gb2312"
Content-Transfer-Encoding: quoted-printable
Hi,
How do I simplify the regex below so that it matches only the number 1, =
henceforth it should return false if I match $string with $match.
use strict;
use warnings;
my $string =3D "10 11 12 13 40";
my $match =3D 1;
if ($string =3D~/^$match | $match | $match$/g){
print "match";
}else{
print "unmatch";
};
------=_NextPart_000_004C_01C8ADE9.8884D110--