$pattern = "123456789";
$str_under_testing = "345678";
print "okay" if ($pattern =~ /^\d*?$str_under_testing\d*$/);