正規表現

.           改行以外の１文字にマッチ
[a-z0-9]    a-zまたは0-9の１文字にマッチ
[^0-9]      数字以外の１文字にマッチ
[0-9]       数字の１文字にマッチ
\d          [0-9]
\D          [^0-9]
\w          [a-zA-Z_0-9]
\W          [^a-zA-Z_0-9]
\s          空白(Tab,改行)にマッチ [ \n\r\f\t]
\S          空白(Tab,改行)以外にマッチ [ \n\r\f\t]

$&          マッチした部分
$`          マッチした前の部分
$'          マッチ以降の部分
$+          最後にマッチした部分

?           0,1個にマッチ
*           0個以上にマッチ
+           1個以上にマッチ
{1,3}       1個以上３個以下にマッチ
{1,}        1個以上にマッチ
{,3}        2個以下にマッチ

読み込んだファイルの先頭が v で始まり 1個以上の数字が続く場合
例:
v10
v100
v200

while(){
	if(m/^v\d+/){
		$key = $_;
	}
}



ASCII文字以外を対象外にする

while(){
  if ($_ =~ /[\x8E\xA1-\xFE]/) {
    next;
  }
}

文字全ての空白を取り除く
$key =~ s/[\s ]+//g;

文字先頭の空白を取り除く
$key =~ s/^\s*//;