sed 变量传递

use List::Util qw/max min/;
use JSON qw/encode_json decode_json/;
use Encode;
if ( $#ARGV < 0 ){
       print "Usage: perl $0 msgid :!\n";
       exit(-1);
};
$msgid=$ARGV[0];
$file=`grep -l  "$msgid" success*` ;
chomp $file;
@pmts_req_start=();
@pmts_req_end=();

@pmts_res_start=();
@pmts_res_end=();

#<MsgId>3133450100192022120918435278</MsgId>
open $fp ,'<',$file or die $!;
while (<$fp>){
     my $line =$_;
     if ($line =~/^\[\d{4}-\d{1,2}-\d{1,2}\s+\d{1,2}:\d{1,2}:\d{1,2}.*?PMTSMSGHDL/){ push (@pmts_req_start,$..' ')};
     if