my ( $ext ) = ( $systempath =~ m{[\\/][a-z0-9]+\.(cgi|pl|asp)$} );