#!/usr/bin/perl

@a = <>;

print grep(/h3/,@a);      # Imprimir todos los títulos h3
print "-" x 60, "\n";     # Imprime "-" 60 veces  
print grep(s/h3/h2/g,@a); # Modificar e imprimir líneas con h3
print "-" x 60, "\n";
print map(s/h3/h2/g,@a);  # Modificar h3; imprimir todas las líneas