my $ext;
if($text=~m/([^.]+)$/)
{
  $ext=$1;
}