first problem

1 files changed, 26 insertions, 0 deletions

diff --git a/DNA.pl b/DNA.pl
new file mode 100644
index 0000000..c432b03
--- /dev/null
+++ b/DNA.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $string = <>;
+$string =~ s/[^ACGT]//g;
+my $length = length($string);
+
+$string =~ s/A//g;
+print $length - length($string);
+$length = length($string);
+
+print " ";
+
+$string =~ s/C//g;
+print $length - length($string);
+$length = length($string);
+
+print " ";
+
+$string =~ s/G//g;
+print $length - length($string);
+$length = length($string);
+
+print " ";
+print $length;