We would really really like to see that you have a good understanding of the fundamentals so that we know where you are having trouble. How about posting some sample code for us so that we can see where you are coming from and where you are having difficulty.

Note that you should use code tags to get the sort of result shown below rather than breaks. See Writeup Formatting Tips to see how things get done.

Here's a sample of how your sample code should be presented. You, of course, replace the comment lines with a first attempt at the code.

use warnings;
use strict;

# my attempt at reading the data using <DATA> and printing
# the output as I want it

__DATA__
- Some words here
- some other words on this line
- you get the idea

# Result should look like this:
'SOME WORDS HERE'/
'SOME OTHER WORDS ON THIS LINE'/
'YOU GET THE IDEA'
[download]

Well, since you said you are new to perl, the following gives you the benefit of the doubt, that you are at least willing to make a good faith effort to teach yourself, and not have the entire solution done for you by someone else.

This should give you a good head start. If you can dissect this and add the missing pieces yourself, it shows you're putting in some effort. If not, it smells like someone asking for free homework.

### 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
[download]

...

in reply to Text manipulation with perl WOW, I am suprised so many have taken interest in my little problem, as requested here is where I am at right now with the code:

open(TXT,"$ARGV[0]") || die "Cannot open the $ARGV[0] file";
$instr = do{local $/; <TXT> };
close(TXT);
chomp($instr);
$instr =~ s/\n+/\n/g;
$instr =~ s/\-\s+([^\n]+)/\'$1\'\//g;
chop($instr);
open(TXT,">$ARGV[1]") || die "Cannot open the $ARGV[1] file";
print TXT $instr;
close(TXT);
[download]

Any suggestions? P.S. I didn't do this all by myself, but I at least understand what is going on.

perl -p -i.bak -e "s/^-//g" foo.dat
[download]

Update: Forgot that you wanted to uppercase stuff:

perl -p -i.bak -e "s/^-(.*)/uc($1)/e" foo.dat
[download]

Update #2: You might also try Mastering Regular Expressions

foreach my $line(@all_lines) {
     $line =~ s/-//g
}
[download]

$line =~ s/^-//g
[download]

open(TXT,"$ARGV[0]") || die "Cannot open the $ARGV[0] file";
$instr = do{local $/; <TXT> };
close(TXT);
chomp($instr);
$instr =~ s/\n+/\n/g;
$instr =~ s/\-\s+([^\n]+)/\'$1\'\//g;
chop($instr);
open(TXT,">$ARGV[1]") || die "Cannot open the $ARGV[1] file";
print TXT $instr;
close(TXT);
[download]