unshift @INC, '.';
my $var = "abc123def";
$var =~ /(\d+)/;
require test;