my @contents;
    my $line;

    while ($line = <FH>) {
        $line =~ s/\A\s+//s;
        $line =~ s/\s+\Z//s;
        push @contents, ( $line );
    }