perl -ne 'print "$1\n" if /\[TRL(\d+)\]/;' <filename>