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