Select Code to Download

$a='
$text=~s#Find \#Text#Replace Text#;
$text=~s/Find \/Text/Replace Text/;
$text=~s{Find \}Text}{Replace Text};
';

if ($a=~m#$text=~s(.)\s*(?<!\1)#)
{
    # need value $findtext='Find \#Text';
    # need value $repltext='Replace Text';    
}

Variable length lookbehind not implemented in regex; marked by <-- HER
+E in
        m/=~\s*s(.)(?<!\1) <-- HERE / at script.pl line 8 (#1)
...
Uncaught exception from user code:
        Variable length lookbehind not implemented in regex; marked by
+ <-- HERE
in m/=~\s*s(.)(?<!\1) <-- HERE / at script.pl line 8.