#!/usr/bin/perl
use strict;
use warnings;
$_ = q|some
stuff| .
q|various text| .
q|What kind of #'s that| .
q|aeo;utrq[134[ a| ;
while ( m|(?:(.*?)()+?)|sgc ) {
print "name: |$1|\n" .
"art: |$2|\n\n";
}
__DATA__
name: |a name|
art: |some
stuff|
name: |Mae B Arthur|
art: |various text|
name: |36561357542|
art: |What kind of #'s that|
name: |aafq0w4tyu89[ |
art: |aeo;utrq[134[ a|