ben@Tyr:~$ perl -wne'print length, ": $_" if /^(apple)$/'
apple
6: apple