#!perl -pl
$_.=-31+vec'9Bu S1dBd',$.++-/19/,4