use strict;
my $file;
{
  local $/;
  $file = <>;
}
$file =~ s!$/!!g;
my @elements = split /\|/, $file;