Help for this page

Select Code to Download

Select or download this

$ perl -le '
> $str = q{adfsdheHjdGafefaffJaff};
...
> print $str;'
Variable length lookbehind not implemented in regex; marked by <-- HER
+E in m/(?<=^|[A-Z])a <-- HERE / at -e line 3.
$

Select or download this

$ perl -le '
> $str = q{adfsdheHjdGafefaffJaff};
...
> print $str;'
999dfsdheHjdG999fefaffJ999ff
$