#! 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";
}


##</code><code>##

17:05 >perl 1503_SoPW.pl
|cannot connect to smsc|
|unsubscribe error|
|No paging|

17:05 >