my $end = @test;
my $cnt = 0;
until ($cnt == $end)
    
    if (($test[$cnt] =~ /^>>>\s/) && ($test[$cnt+1] !~ /^>>\s/)){
        $tst[$cnt] =~ s/^>>>/PYTHON_PROMPT/;
    }
    $cnt++;
}