Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $_->[1] =~s/^ //;
    print $_->[0], " ", $_->[1],"\n"
}