#! perl
use strict;
use warnings;

my @error_fields =
(
    ' Error from hlr : cannot connect to smsc ',
    'Error from MSc : unsubscribe error',
    'No paging ',
);

for my $field (@error_fields)
{
    $field =~ / ^ (?: .*? : )? \s* (.*?) \s* $ /x;
    print "|$1|\n";
}