while (<GRAPH>)
{
        /$some $regex ($with) ($parens)/;
        $a1 = $1;
        $a2 = $2;
        print $a1, $a2;
}