#!/usr/bin/perl
use strict;
use warnings;

my $string="#22 2006-05-02 12:12:35 hjjjdddddd Advisory.No action required. event-101 severe is the name of the alarm but the way it is dispalyed cannot be digested at all 12121212121122";
print substr($string,0,160);
<code>
Output:
<code>
#22 2006-05-02 12:12:35 hjjjdddddd Advisory.No action required. event-101 severe is the name of the alarm but the way it is dispalyed cannot be digested at all