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

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

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

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

[解决办法]
没看过书吗？

Perl code

$line =~ /.../;