#!/usr/bin/perl -w
use strict;
my $name = "file_b";
my ($foo1, $foo2, $foo3);

$foo1 = <>;
$foo2= <>;

my @lines= do {  local @ARGV =$name;<> };

$foo3 = <>;

print "Lines:\n",@lines;
print "\nFoos:\n",$foo1,$foo2,$foo3;