Help for this page
my @lines = ( "@attribute 'Sex' { Male, Female}", ... print "relation name: $1\n"; print "type: $2\n"; }
perl test.pl relation name: Sex ... type: REAL relation name: Ash type: REAL