perl remove all whitespace

To remove all whitespace from a string in Perl, you can use the s/// substitution operator with the g flag. Here's an example:

$string = "This is a string with whitespace";
$string =~ s/\s//g;
print $string;

This code will remove all whitespace characters (including spaces, tabs, and newlines) from the $string variable and print the result, which will be "Thisisastringwithwhitespace".