my $line = 'pin B[0] 10';
my $inputName = 'B[0]';
if($line =~ m/[\w]+[\s]+$inputName[\s]+([\.\d]+)/){
   print "$1\n";
}