Help for this page
my( $username, $user ) = @ARGV;
$var = ";rm -rf /*;"; my $ILLEGAL_CHARS = qr/[^A-Za-z0-9._-]/; $var =~ s/$ILLEGAL_CHARS/_/g; print $var;