#!/usr/bin/perl
use strict;
use warnings;
my $teststring = "delay PADI_DEL,del:0.352, 0.352, 0.376, 0.376 PIO PAD PADDI (PADDI:PADDI IOBUF:::IO_TYPE=SUBLVDS,BANK_VCCIO=3.3); pio_INR_drt";
$teststring =~ s/(0\.\d+).*(0\.\d+).*(0\.\d+).*(0\.\d+)//g;
IyEvdXNyL2Jpbi9wZXJsCiAKdXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwogCm15ICR0ZXN0c3RyaW5nID0gImRlbGF5IFBBRElfREVMLGRlbDowLjM1MiwgMC4zNTIsIDAuMzc2LCAwLjM3NiBQSU8gUEFEIFBBRERJIChQQURESTpQQURESSBJT0JVRjo6OklPX1RZUEU9U1VCTFZEUyxCQU5LX1ZDQ0lPPTMuMyk7IHBpb19JTlJfZHJ0IjsKIAokdGVzdHN0cmluZyA9fiBzLygwXC5cZCspLiooMFwuXGQrKS4qKDBcLlxkKykuKigwXC5cZCspLy9nOwpwcmludCAiJDEgJDIgJDMgJDRcbiI7