如何用Perl分析句子。

[icuc88]

#!/usr/bin/perl

my $line = "---ABC---";
$_ = $line;
if ( /---(.*)---/)
{
print $1, "\n";
}

exit;

^^^^^^^^^^^^^^^
上面的语句有没有更简单的写法？

TKS.

[icuc88]

我为了获得中间的ABC，有没有更简单的写法？

[SeeMin]

#!/usr/bin/perl

my $line = "---ABC---";
($str) = ($line =~ m/(\w+)/);
print $str;

试一下，我试了可以：）

[icuc88]

TKS

[aw325]

my $line = "---ABC---";
$line=~s/-//g;