Reading from another file.

[will]

Sorry for the simple question, the guy who normally does this stuff for us is on vacation so I have been failing miserably trying to get something very simple to work. We have a script that has some hardcoded HTML in it which has been needing updates fairly often. Editing it in the middle of the file has gotten annoying, all I want to do is be able to set the variable to read the HTML from another file. I was able to read from another file, but it wouldn't get all the HTML. I think because of some characters it didn't like. Want to make sure the way I do it won't mess up like that or if it runs quickly. Really I just want in the script to be able to set $something = <everything in a separate file(will be all HTML) Any help would be greatly appreciated. Thanks for your time.

[ayrnieu]

#! /usr/bin/env perl
use strict;
use warnings;
use File::Slurp qw/slurp/;
# I am a unix filter!
die "usage: <pattern> <file>\n" unless @ARGV == 2;
my $p = $ARGV[0];
my $fc = slurp $ARGV[1];
while (defined($_ = <STDIN>)) {
  s/\Q$p/$fc/;
  print
}