Select Code to Download

my @data = (
  'Line1 <error 1 1 <foo> <bar>> <three 1 1 <baz> <qux>> <fixv 1 1 qib
+ qeg>',
...
    print "Found '$1' in line '$test'\n";
  }
}

use strict;
use warnings;
...
    }
  }
}