Select Code to Download

use FileHandle::Unget;
  
...
    $testline = <$fh>;
    print "$.: $testline";
}

1: <?xml version="1.0" encoding="UTF-8"?>
1: <?xml version="1.0" encoding="UTF-8"?>
2: <MFOP>
3:   <Basics>