RosettaCodeData/Task/Strip-comments-from-a-string/Perl/strip-comments-from-a-string.pl

while (<>)
  {
    s/[#;].*$//s; # remove comment
    s/^\s+//;     # remove leading whitespace
    s/\s+$//;     # remove trailing whitespace
    print
  }