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