Select Code to Download

{
local $/="";
$file=<INFILE>;
}
#Now you can regex with m//mg all you want

while(<INFILE>){
chomp();
...
#regexes go here
$line="";
}