#! /usr/bin/perl -w
use strict;
# 1144651

my $pvid;
my $line = "pvid 00c1be9a467335ce0000000000000000"; 
if ($line =~ /(pvid .*?)0000000000000000$/ ) {
   $pvid = $1;
} 
print $pvid;