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