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

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