use strict;
use warnings;

print
   map {
           chomp;
           s{^\[([^\]]*)\]}{$1};
           qq{$_\n};
       }
   <>;