perldebon

   1 #!/usr/bin/env perl
   2
   3 # perldebon
   4 # File ID: 250bbb52-5d42-11df-87b1-90e6ba3022ac
   5 # Fjerner utkommenteringa på debuggingsmeldinger i Perl
   6
   7 while (<>) {
   8         s/# (&deb_pr\(__LINE__)/$1/g;
   9         print;
  10 }