if($line =~ m/^A55=(.*?^A)/){
    print "$1|";
} else {
    print "|";
}