31                 my ($match) = $input =~ /\.(.+?)\./ if defined $input;