#!/usr/bin/perl

# comment
while(<>) {
if (/^#/) {
  print; $.--;
} else {
print "$.:$_";
 }
}