local $/="\x12"; # set the inputrecord seperator to \x12

foreach(<>){
	# do something with record in $_
}