while (<>) { # the "x" operator does the right thing for negative values
  print $_.("X" x (130-length($_)));
}