Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K$"//; print'
$_ = 'abcdef';
s[@{[s/.././gr];}\K$"][];
print $_;
-e syntax OK
  2. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K //; print'
$_ = 'abcdef';
s[@{[s/.././gr];}\K ][];
print $_;
-e syntax OK