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