#!/usr/bin/perl -wln
###############################################################################
# Copyright (c) 2000-2021 Ericsson Telecom AB
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v2.0
# which accompanies this distribution, and is available at
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
#
# Contributors:
#   Balasko, Jeno
#   Raduly, Csaba
#
###############################################################################
use strict;

next unless my ($txt) = m{Action: '[\da-fA-F]+'O \("(.+)"\)};

$txt =~ s/\\n/\n/g;
$txt =~ s/\\t/\t/g;

print $txt;
