Select Code to Download

$lines[1] =~ 's{:20140924105028(\d+)}'{
my $tp = Time::Piece->strptime($1, DATE_FORMAT);
($tp+ONE_MINUTE*2*$n)->strftime(DATE_FORMAT);