#!/usr/bin/perl

$user_text="drab";
$regex='m/ab/';

eval "'drab' =~ $regex";
        print "User: $user_text, Reg: $regex\n";
        print "Match:$&\n";
        my $i = 1;
        my $var='$'.$i;
        print "Fine\n" if defined(eval"$var");
        while (defined(eval"$var")){
               print "Got here too...\n";
               my $found=eval"$var";
               print "Var $var is $found\n";
               $var='$'.++$i;
               }