hknutzen

#!/usr/bin/perl -p

use strict;
use warnings;

# Comment
if (s|^(\s*)#|$1//|) {
    # convert variable names
    s/[\$\%\@]([a-z][0-9a-z]*)/$1/g;
    next;