( $extension ) = $string =~ /([^.]*)$/;

##</code><code>##

( $extension ) = $string =~ /\.([^.]*)$/;