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