perlでファイルの指定文字列を取り出し、変数へ格納

あるファイル（仮にsample.txt）の一行目には三つの数字があります。数字と数字の間に半角スペースが入ってます。三つの数字を正規表現で取り出し、それぞれ変数A、B、Cに格納する方法はありますか

20 31 7
abcdefg
あいうえお
...

　　
自分はこのように考えています。うまくいかなかったです。

print"ファイル名を指定してください！";
  chomp(my $file = <STDIN>);
  open (IN, $file) or die;

  my $para = qr/(\d+)\s(\d+)\s(\d+)/x;

  if (<IN>=~ /$para/) {
     my $A = $1;
     my $B = $2;
     my $C = $3;
  }