### begin_: init perl
    use strict;
    use warnings;
    use YAML;

### begin_: init vars
    my  $sYAML;
    my  $oData;
    my  $iM;

### begin_: main
    $sYAML      = join"",(<DATA>);
    $oData      = YAML::Load($sYAML."\n\n");
    $iM         = ((scalar(@{$oData}))-1<29)?scalar(@{$oData})-1:29;
    print       join "/\n",map{sprintf"'%s'",uc($_);}@{$oData}[0..$iM];

### begin_: end perl
    1;
    __DATA__
- Some words here
- some other words on this line
- you get the idea