regex tweaked

thanks, #perl