if($line =~ m/(^A22=.*?^A).*(^A40=.*?^A).*(^A48=.*?^A).*(^A54=.*?^A).*(^A55=.*?^A)/g){
    print "$1|$2|$3|$4|$5\n";
}