#
# Hello World Program in Perl
#
$string = "vishwassubnet 1 ims-0-x ip address";
$string =~ s/-x//;
IwojIEhlbGxvIFdvcmxkIFByb2dyYW0gaW4gUGVybAojCiRzdHJpbmcgPSAidmlzaHdhc3N1Ym5ldCAxIGltcy0wLXggaXAgYWRkcmVzcyI7CiRzdHJpbmcgPX4gcy8teC8vOwpwcmludCAkc3RyaW5nOw==