Select Code to Download

#!/usr/bin/perl -wl

...
output:
this is  not correct usage
and one's still there

$s =~ s/(?:[^\cH]\cH|^\cH+)//g while ...