Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    print "\$str is: $str\n";
    print "Cleaned up: " . cleanup2($str) ."\n";
    print "\$str is: $str\n";
    
  2. or download this
    $str is: <some> text with';*()/? nasty chars. scripted is ok, but not 
    +script
    Cleaned up: some text with nasty chars. scripted is ok, but not
    $str is: <some> text with';*()/? nasty chars. scripted is ok, but not 
    +script
    Cleaned up: some text with nasty chars. scripted is ok, but not
    $str is: some text with nasty chars. scripted is ok, but not