Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl my @strings = ( "Hello world", "multi\n line string", "tabbing\talong\twith spaces", ); foreach my $s (@strings) { my $t = $s; $t =~ s/\s*//g; print "$s -> $t\n"; } Private [?] Run code Submit