for( 1 .. 2 ){
    $string = reverse $string;
    chop $string;
    }