my $line = qq|Calling-Station-Id = "#crnh-b|;
for( 1 .. 7e6 ) {
 expr N
}

##</code><code>##

my ($key, $value) = split(/ = /, $line);

##</code><code>##

$line =~ /^([^=]+)\s=\s(.+)$/o;

##</code><code>##

my $idx = index $line, " = ", 1;
my $key = substr($line, 1,$idx);
my $value = substr($line,$idx + 3);