Select Code to Download

sub clean
{
...
    $_[0] =~ s/^\s+//g;
    $_[0] =~ s/\s+$//g;
}

#!/usr/bin/perl
use strict;
...
}

item1
item2
...
item2
item3
item4