my $string = "abcde67890";
if($string =~ m/a....6/) {print "use ~"};