Select Code to Download

#!/usr/bin/perl -l

...
my $str = "this is an   example";
$str =~ s/\s+/ /g;
print $str;

#!/usr/bin/perl -l

...
        }
    }
}