Select Code to Download

#!/usr/bin/perl

...
is digits( '12345 World 123456 !!! 789 ...', 12 ), '123456', "At start
+";

done_testing;