#$url = substr($test, 0, $_);
#if ($test =~ /$url/ {

##</code><code>##

if ($test =~ m#(??{substr($test, 0, $_)})#) {

##</code><code>##

Argument $test isn't numeric in substr at (re_eval 1) l