my ($in, $out);
open($in, "<", "/etc/inittab") or die($!);
open($out, ">", "/etc/inittab.new") or die($!);
while(my $line = <$in>) {
    chomp $line;
    $line =~ s/remount,ro,noatime/remount,rw,noatime/g;
    print $out $line . "\n";
}
close($out);
close($in);

rename("/etc/inittab.new", "/etc/inittab");