open PL, 'pvclength.txt' or die "Cant open file";
     
$pvc_l=<PL>;

$pvc_l =~ s/^\s+//; 
$pvc_l =~ s/\s+$//;