Help for this page

Select Code to Download

Select or download this

$foo = 'var-a numeric (10,0) = NULL, var-b char (10) = NULL, var-c dum
+my (1, 5)';

Select or download this

my $str = 'var-a numeric (10,0) = NULL, var-b char (10) = NULL, var-c 
+dummy (1, 5)';
my @bits = $str =~
...
   )*       # as many times as possible
  )/gx;
print ">$_<\n" for @bits;