#! Perl
use strict;

my $notefile = 'notes'; #Define file for notes here

sub new_notes {
    my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(
+time);
    print 'Type {e} on a blank line to end the note'."\n";
    my $string = sprintf "%02d/%02d/%4d %02d:%02d\n", $mon+1, $mday, $
+year+1900, $hour, $min;
    while (<STDIN>) {
        last if m!\{e\}!;
        $string .= $_;
    }
    $string .= "-----\n";
    open(NOTE, ">>$notefile");
    print NOTE $string;
    close(NOTE);
    return 1;
}
sub get_notes {
}


print "Welcome to MyNotes, a personal note taking system.\n";
print "\tPress 'h' for help\n";

new_notes();
[download]

> munchie, the number munchin newb
Llama: The other other white meat!
(you had to be there :-P)

Well not knowing how does constitute a problem. Which is fine, nothing wrong with that. We've all been there, and still are. But having an example of what's been tried and why (what you think you are butting your head against) is always good. Of course there is nothing *for* getnotes here... Sometimes a monk (myself included) will rise to the occasion and write your code for you, but you'll have more fun if you provide an appetizer.

--
perl -pe "s/\b;([st])/'\1/mg"