my $line = "a.b.cd*f."; $line =~ /([^.*]{2})/;