if($dat =~ /([\/|\.])?$_/i){