Help for this page

Select Code to Download

Select or download this

my $scratch = '';
my @a = (map(defined() ? ($scratch.=$_)[()]
                       : substr($scratch,0,length($scratch),''),
             split /(\\.)|X/, $escaped_str),
         length($scratch) ? $scratch : ());