perl 里使用正则表达式,该如何处理

perl 里使用正则表达式
看perl的程序里经常有

open file 
if(<IN>)
{
  if(/^\s*.*/)
  {
  }
}

这个正则表达式做条件，是不是匹配上了就是true，没匹配上就false了，
然后，这个默认就是$_.?
现在我想的是这样写

open file 
if(<IN>)
{ 
  $line = $_;
  #然后对$line进行类似的匹配，然后要拿出其中的子模式，应该如何？
  if(/^\s*.*/)
  {
  }
}

------解决方案--------------------
没看过书吗？

Perl code

$line =~ /.../;