##
use strict;
##
##
open my $graph, '<', '2211.txt' or
die "Can't open `2211.txt': $!\n";
##
##
while ()
{
$a1 = push(@a1, $1);
$a2 = push(@a2, $2);
print @a1, @a2;
}
##
##
while ()
{
/$some $regex ($with) ($parens)/;
$a1 = $1;
$a2 = $2;
print $a1, $a2;
}
##
##
my (@a1, @a2);
while ()
{
/$some $regex ($with) ($parens)/;
push @a1, $1;
push @a2, $2;
}
print @a1, @a2;