in reply to shortening substitutions

One statement? Sure: 
s/"//, s/;//, s/^\s+//, s/    // for @point_names;

[download]

In Section Seekers of Perl Wisdom