First, learn to use the formatting tools available. In particular, you should have noticed when you hit 'preview' that your text had run together. You probably wanted that in code tags.

Second:

#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
    print "found '$1'\n" if /:([^;]+)/;
}
__END__
[download]

which when given the input file you describe via a call like

./foo.pl input_file
[download]

will print

found ' karemaips01'
found ' karemadom02'
found ' karemadbo01'
found ' karemadom01.emea.pfizer.com'
found ' karemasss05'
found ' ka-lvsapp'
found ' emakars001.pfizer.com'
found ' ka-lvsn1'
found ' ka-efss'
found ' ka-lvsn2'
found ' karemafil-c'
found ' ka-lvscluco'
found ' ka-lvsdb'
[download]

First, if you would use <c></c> around your data, it would be easier for others to read and understand. At the moment, I can't tell if the data is all on one line or multiple lines in your file.

The untested code below should give a start in the right direction. As for how to apply that regex to processing the file, you'll need to provide more information of the format of the file contents.

use strict;
use warnings;

my $data = "name: ka-lvscluco;"
$data =~ m/:\s+(.+?);/;
my $extracted = $1;

print "'$extracted' was pulled from '$data'\n";
[download]

Hi changalrai......i hope my following code will help you. Suppose that your data is in SOPW.txt file .The the following code will retrieve what you wanted.

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

open (my $fh, "<", "c:/SOPW.txt") or die "can't open the file :$!";

while (<$fh>){
    chomp;
    if(m/\w+:(.*);/){
        print "$1\n";
    }
}
[download]