20150120172947|94|AD-PC40|Area 1|1| | | |4|0| |K-1|L 
20150120172947|95|AD-PC41|Area 1|6| | | |0|0| |K-1|L 
20150120172947|101|AD-PC46|Area 1|1| | | |0|0| |K-1|L 
20150120172947|103|AD-PC49|Area 1|1| | | |0|0| |K-1|L 
20150120172947|46|ATECH-PC02|Area 2|1| | | |4|0| |K-1|L 
20150120172947|129|ENFTPC|Area 3|268435462| | | |0|0| |K-1|L 
20150120172947|7|EX-PC04|Area 4|1| | | |4|0| |K-1|L 
20150120172947|8|EX-PC05|Area 5|1| | | |4|0| |K-1|L 
20150120172947|9|EX-PC06|Area 5|1| | | |4|0| |K-1|L 
20150120172947|12|EX-PC09|Area 5|1| | | |4|0| |K-1|L 
20150120172947|100|EX-PC10|Area 5|1| | | |4|0| |K-1|L 
20150120172947|13|EX-PC11|Area 5|1| | | |4|0| |K-1|L 
20150120172947|14|EX-PC12|Area 5|1| | | |4|0| |K-1|L 
20150120172948|15|EX-PC13|Area 5|1| | | |4|0| |K-1|L 
20150120172948|16|EX-PC14|Area 5|1| | | |4|0| |K-1|L 
20150120172948|105|JR-AT-PC01|Area 6|6| | | |0|0| |K-1|L 
20150120172948|106|JR-AT-PC02|Area 6|6| | | |0|0| |K-1|L 
20150120172948|JR-PC02|Area 6|1| | | |4|0| |K-1|L 
20150120172948|86|JR-PC04|Area 6|1| | | |4|0| |K-1|L 
20150120172948|109|JR-PC05|Area 6|1| | | |4|0| |K-1|L 
20150120172948|114|JR-PC06|Area 6|1| | | |4|0| |K-1|L 
20150120172948|116|JR-PC07|Area 6|268435458| | | |0|155| |K0|L 
20150120172948|112|JR-PC10|Area 6|268435461| | | |4|0| |K-1|L 
20150120172948|110|JR-PC13|Area 6|6| | | |0|0| |K-1|L

##</code><code>##

my ($area1,$area2,$area4);
while (<FH>) {
        my @r  = split /\|/,$_;
        if ($r[3] eq "Area 1") {$area1->{$r[2]} = $_}
        if ($r[3] eq "Area 4") {$area4->{$r[2]} = $_}
}
print Dumper $area1,$area4

$VAR1 = \{
            'AD-PC46' => '20150120172947|101|AD-PC46|Area 1|1| | | |0|0| |K-1|L 
',
            'AD-PC41' => '20150120172947|95|AD-PC41|Area 1|6| | | |0|0| |K-1|L 
',
            'AD-PC49' => '20150120172947|103|AD-PC49|Area 1|1| | | |0|0| |K-1|L 
',
            'AD-PC40' => '20150120172947|94|AD-PC40|Area 1|1| | | |4|0| |K-1|L 
'
          };
$VAR2 = \{
            'EX-PC04' => '20150120172947|7|EX-PC04|Area 4|1| | | |4|0| |K-1|L 
'
          };