$line =~ s/^\s+//; # ltrim() $line =~ s/\s+$//; # rtrim()