s/(-?\d+)/$1>0 ? "L" : ($1 == 0 ? "Q" : "S")/e;

##</code><code>##

s/(-?\d+)/qw(Q L S)[$1 <=> 0]/e;