$rec_sep=$/;
undef $/;
$slurp=<INPUTFILE>;
$/=$rec_sep;
print "Enter something: ";
$something=<STDIN>;