Select Code to Download

use strict;
use warnings;
...
print "Method 1 :\t\$int: $int\n";
my ($int1) = ("SLOT3=4,4,2!INT=115!VC=4!CS=270!PK=/")=~ m/\!INT=([^\!]
++)/;
print "Method 2 :\t\$int: $int1\n";

use strict;
use warnings;
...
method1 133487/s      --    -64%
method2 366033/s    174%      --