$ perl benchmark --- Test size: 500 Rate fs_sub is_sub is_nosub fs_sub 30871/s -- -35% -39% is_sub 47468/s 54% -- -7% is_nosub 50957/s 65% 7% -- --- Test size: 5000 Rate fs_sub is_sub is_nosub fs_sub 28327/s -- -29% -33% is_sub 40049/s 41% -- -5% is_nosub 42162/s 49% 5% -- --- Test size: 50000 Rate is_sub is_nosub fs_sub is_sub 11441/s -- -3% -15% is_nosub 11763/s 3% -- -13% fs_sub 13453/s 18% 14% -- --- Test size: 500000 Rate is_sub is_nosub fs_sub is_sub 279/s -- -14% -16% is_nosub 326/s 17% -- -1% fs_sub 331/s 18% 1% -- --- Test size: 5000000 Rate is_sub is_nosub fs_sub is_sub 29.3/s -- -13% -17% is_nosub 33.8/s 15% -- -4% fs_sub 35.3/s 21% 5% -- --- Test size: 25000000 Rate is_sub is_nosub fs_sub is_sub 6.10/s -- -13% -18% is_nosub 7.04/s 15% -- -6% fs_sub 7.46/s 22% 6% --