my @tests = (
    # $string, $pos, $expected, $description
    [ "\nString\n", 2, 6, 'Surrounded' ],
    [ "String\n",   2, 6, 'No first \n' ],
    [ "\nString",   2, 6, 'No last \n' ],
    [ "String",     2, 6, 'No \n' ],
    [ "",           0, 0, 'Blank' ],
);