sub slurpie {
    local $/ = '';   # paragraph mode
    while (<DATA>) {
        next unless /^\w\w.+(\w\w).+(\d+).+(\w\w)/sg;  #should only match first paragraph
        print "$_\n";
    }
}