Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
Dump($token);
my $term = $token; # note: i have no clue what's in $term
print "match\n" if $token =~ /^$term/i;

Select or download this

SV = PV(0x814d988) at 0x814d524
  REFCNT = 1
...
  CUR = 5
  LEN = 6
match