Select Code to Download

sub yoursub
{
...
}

yoursub([2..7], 'NETPACKET', 'Network', \&transformNetpacketSub);

sub yoursub
{
...
}

yoursub(-range => [2..7], -firstre=>'NETPACKET', -secondre=>'Network',
+ ->transformsub=>\&transformNetpacketSub);

sub transformNetpacketSub
{
...
  # do anything with string
  return $str;
}