#!/usr/bin/perl

$filename = $ARGV[0];

open (FILE,$filename) || die "error: $!\n";

$lastnum = <FILE>;
while ($line = <FILE>)
{
  $line =~ s/^\_/sys\_/;
  print $line;
}

print "\n";