Help for this page

Select Code to Download

Select or download this

$ perl -E '$_ = "caattt"; s/at//g; say'
catt
$ perl -E '$_ = "caattt"; 1 while s/at//g; say'
ct