local $/='//'; #define record separator my @records = <$in>; # read in all records chomp @records; #get rid of trailing // from each record