#!/usr/bin/perl -w

use strict;

my $out = '<?xml version="1.0" encoding="utf-8"?>';
my @tmp = split /</, $out;
foreach(@tmp) {
  if (substr($_, 0, 1) eq "?") {
    print "conditionA matched - looping!\n";
    next;
  } elsif (substr($_, 0, 1) eq "!") {
    print "conditionB matched\n";
  }
  print "End of loop\n";
}