sub slurp { open(my $FILE,"