Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @pieces = split /(\$\{.*?\})/, $string_exp;

print Dumper \@pieces;
  2. or download this
    $VAR1 = [
          'something in this string is a number. ',
...
          '${=NumberFormat "9+"}',
          '.'
        ];
  3. or download this
    $VAR1 = [
          'something in this string is a number. ',
...
          '${=CharFormat "X*"}',
          ' is $=NumberFormat "9+"}.'
        ];