Вы можете сделать это просто с помощью Test::More
. Сделайте свои манипуляции и затем проверьте свою догадку:
my $subs1 = substr( 'apple', 0, 1 );
is( $subs1, 'a' );
Базовая система тестирования обычно говорит вам, что вы догадались неправильно. Если вы сделали это в REPL (поскольку он очень линейный), это может послужить тренировочным упражнением.