my ($title, $tags, $content, $cat, $status);
  $stored_post =~ m/\[:title\](.+)\[:title\]/is;
  $title = $1;
  $stored_post =~ m/\[:tags\](.+)\[:tags\]/is;
  $tags = $1;
  $stored_post  =~ m/\[:categories\](.+)\[:categories\]/is;
  $cat = $1;
  $stored_post =~ m/\[:post\](.+)\[:post\]/is;
  $content = $1;
  $stored_post =~ m/\[:status\](.+)\[:status\]/is;
  $status = $1;