#!/usr/bin/perl

if(@ARGV != 2) {
 print 'Syntax is "ins-string.pl filename string"'."\n";
 exit;
}
$fn = $ARGV[0];
$str = $ARGV[1];
$str =~ s/\/$//;

$tmpfn = "/tmp/$fn";

open(INF, $fn) or die "Could not read $fn";
open(OUTF, ">$tmpfn") or die "Could not write to temp file $tmpfn";

while(($line=<INF>) && !($line =~ /problemlist/i)) {
  print OUTF $line;
}
print OUTF $line;
while($line=<INF>) {
  if(($line =~ !/^\s*#/) and ($line =~ /\S/)) {
    $line =~ s/^\s*//;
    $line = "$str/$line";
  }
  print OUTF $line;
}


close(INF);
close(OUTF);
`mv $tmpfn $fn`;