Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $integer = qr{ (?<! \d) \d+ (?! \d) }xms;
...

seq: 'N275G01X304.78Y608.8C45.91M25'
bad: 'N275G01X304.78Y608.8C45.91M25' at -e line 1.