Quickie to add a semicolon to end of non-commented lines (useful paired with the SHOW GRANTS bash script)
#!/usr/bin/perl --
open DATA, "$ARGV[0]";
while () {
$liner=$_;
if ("$liner" =~ /^#/) {
print $liner;
} else {
chomp($liner);
print "$liner" . ";n";
}
}
close DATA;