diff --git a/mcu/tools/parse_lis.pl b/mcu/tools/parse_lis.pl
new file mode 100644
index 0000000..f11f40a
--- /dev/null
+++ b/mcu/tools/parse_lis.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+$lisfile = $ARGV[0];
+$output = $ARGV[1];
+
+open (FILE_HANDLE, "<$lisfile") or die "Cannot open $lisfile\n";
+  $backup = $/; undef $/;
+  $reading = <FILE_HANDLE>;
+  $/ = $backup;
+close FILE_HANDLE;
+
+open (W,">$output") or die "Cannot open output file $output:$!\n";
+  
+if ($reading =~ /Memory Map of the image/) {
+  $reading = $';
+  if ($reading =~ /==============/) {
+    print W $`;
+  } else {
+    print W $reading;
+  }
+}
+close W;
+