for my $line (@call) {
   # remove A192.*4 and following whitespace from the beginning of each line
   $line =~ s/^A192.*4\s+//;
}