Help for this page

Select Code to Download


  1. or download this
       $s =~ s/^[ \t]+//mg;    # remove leading  whitespace from each line
   $s =~ s/^\s+//;         # remove leading  whitespace
  2. or download this
    $s =~ s/^;.*\Z//m; chomp $s;
$s =~ s/^;.*\Z//m; chomp $s;
$s =~ s/^;.*\Z//m; chomp $s;