open(FILE, "<\HPRD_FLAT_FILES_090107\PROTEIN_Architecture.txt") or die("Unable to open file");
open(OUTPUT1, ">$output") or die("Unable to open file");

##</code><code>##

$infile = "/HPRD_FLAT_FILES_090107/PROTEIN_Architecture.txt";
open(FILE, "<", $infile)
    or die("Open failed for reading $infile: $!");

##</code><code>##

open(OUTPUT1, ">", $output) or die "Open failed for writing $output: $!");

##</code><code>##

@hprdArchi = split /\n/,$tar->get_content("HPRD_FLAT_FILES_090107/PROTEIN_Architecture.txt");