#!/usr/bin/env perl
use strict;

while (my $str = <>) {
    $str =~ s/Header 2/Header 1/g; 
    $str =~ s/Header 3/Header 2/g; 
    $str =~ s/Header 4/Header 3/g;
    print $str;
}

exit 0;
